home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Workbench / Icon.asm
Assembly Source File  |  1990-07-14  |  1KB  |  84 lines
  1. *
  2. *    Icon.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    Stubs for routines declared in Include/Workbench/Icon.i
  6. *
  7.  
  8.     XREF    _IconBase
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _LVOAddFreeList
  13.     XDEF    _AddFreeList
  14. _AddFreeList
  15.     move.l    4(sp),a2
  16.     move.l    8(sp),a1
  17.     move.l    12(sp),a0
  18.     move.l    _IconBase,a6
  19.     jsr    _LVOAddFreeList(a6)
  20.     tst.l    d0
  21.     sne    d0
  22.     rts
  23.  
  24.     XREF    _LVOBumpRevision
  25.     XDEF    _BumpRevision
  26. _BumpRevision
  27.     move.l    4(sp),a1
  28.     move.l    8(sp),a0
  29.     move.l    _IconBase,a6
  30.     jmp    _LVOBumpRevision(a6)
  31.  
  32.     XREF    _LVOFindToolType
  33.     XDEF    _FindToolType
  34. _FindToolType
  35.     move.l    4(sp),a1
  36.     move.l    8(sp),a0
  37.     move.l    _IconBase,a6
  38.     jmp    _LVOFindToolType(a6)
  39.  
  40.     XREF    _LVOFreeDiskObject
  41.     XDEF    _FreeDiskObject
  42. _FreeDiskObject
  43.     move.l    4(sp),a0
  44.     move.l    _IconBase,a6
  45.     jmp    _LVOFreeDiskObject(a6)
  46.  
  47.     XREF    _LVOFreeFreeList
  48.     XDEF    _FreeFreeList
  49. _FreeFreeList
  50.     move.l    4(sp),a0
  51.     move.l    _IconBase,a6
  52.     jmp    _LVOFreeFreeList(a6)
  53.  
  54.     XREF    _LVOGetDiskObject
  55.     XDEF    _GetDiskObject
  56. _GetDiskObject
  57.     move.l    4(sp),a0
  58.     move.l    _IconBase,a6
  59.     jmp    _LVOGetDiskObject(a6)
  60.  
  61.     XREF    _LVOMatchToolValue
  62.     XDEF    _MatchToolValue
  63. _MatchToolValue
  64.     move.l    4(sp),a1
  65.     move.l    8(sp),a0
  66.     move.l    _IconBase,a6
  67.     jsr    _LVOMatchToolValue(a6)
  68.     tst.l    d0
  69.     sne    d0
  70.     rts
  71.  
  72.     XREF    _LVOPutDiskObject
  73.     XDEF    _PutDiskObject
  74. _PutDiskObject
  75.     move.l    4(sp),a1
  76.     move.l    8(sp),a0
  77.     move.l    _IconBase,a6
  78.     jsr    _LVOPutDiskObject(a6)
  79.     tst.l    d0
  80.     sne    d0
  81.     rts
  82.  
  83.     END
  84.